home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nebula 2
/
Nebula Two.iso
/
Documents
/
Diagram
/
UW_Palettes
/
Backgrounds.dpalette2
/
Image16
(
.txt
)
< prev
next >
Wrap
NeXT TypedStream Data
|
1995-06-12
|
1KB
|
43 lines
typedstream
NXImage
Object
NXEPSImageRep
NXImageRep
iisssss
[1098c]%!PS-Adobe-2.0 EPSF-2.0
%%Title: Rectangle.eps
%%Creator: Ali Ozer
%%CreationDate: Tue Aug 14 10:38:47 1990
%%Pages: 0 1
%%BoundingBox: 0 0 570 750
%%EndComments
% This program draws a particular symmetric pattern. Plug in
% xscaleAmount, yscaleAmount and rotateAmount with a
% pleasing value given by RectSpinShow
% adapted from Rectangles.eps from the demos directory
% by Kevin Brain. May 1/1991
/numSteps 400 def
/boxsize 100 def % original size was 200
% The drawing routine. % modified to use boxsize variable
/drawbox {
boxsize -.5 mul boxsize -.5 mul
boxsize boxsize rectstroke
} bind def
% Come up towards the middle of a 8.5x11 (default) page
72 8.5 mul 2 div 72 11 mul 2 div translate
% Have thin lines (even when scaled; 0 linewidth
% means "use the smallest line you can")
0 setlinewidth
% Take numSteps steps from 1 to 0, drawing a
% rectangle and altering the coordinate system
% by the above values at every step...
.4 1 numSteps div neg 0 {
.5 add setgray
% xscaleAmount yscaleAmount
1.00936 1.01896 scale
% rotateAmount
2.16 rotate
drawbox
} for
%%EndFile